object Kwgl_StatusSetForm: TKwgl_StatusSetForm
  Left = 212
  Top = 197
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #26381#21153#22120#29366#24577#35774#32622
  ClientHeight = 269
  ClientWidth = 414
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object lbl_Kcmc: TLabel
    Left = 20
    Top = 13
    Width = 85
    Height = 19
    Caption = #32771#35797#35838#31243#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #26041#27491#23002#20307#31616#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbl_KsTime: TLabel
    Left = 103
    Top = 45
    Width = 85
    Height = 19
    Caption = #24320#32771#26085#26399#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #26041#27491#23002#20307#31616#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbl_KsTimeLength: TLabel
    Left = 103
    Top = 74
    Width = 85
    Height = 19
    Caption = #32771#35797#26102#38271#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #26041#27491#23002#20307#31616#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 20
    Top = 45
    Width = 85
    Height = 19
    Caption = #24320#32771#26085#26399#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #26041#27491#23002#20307#31616#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 20
    Top = 74
    Width = 85
    Height = 19
    Caption = #32771#35797#26102#38271#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #26041#27491#23002#20307#31616#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbl_State: TLabel
    Left = 260
    Top = 14
    Width = 153
    Height = 19
    Caption = #29366#24577#65306#27491#22312#36816#34892#8230#8230
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #26041#27491#23002#20307#31616#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 20
    Top = 117
    Width = 373
    Height = 99
    Caption = #31105#29992'/'#21551#29992#32771#35797#26381#21153#65306
    TabOrder = 0
    object RadioButton1: TRadioButton
      Left = 26
      Top = 22
      Width = 143
      Height = 17
      Caption = #21551#29992#26412#35838#31243#32771#35797#26381#21153
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object RadioButton2: TRadioButton
      Left = 26
      Top = 54
      Width = 143
      Height = 17
      Caption = #31105#29992#26412#35838#31243#32771#35797#26381#21153
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object BitBtn1: TBitBtn
    Left = 223
    Top = 232
    Width = 75
    Height = 25
    Caption = #30830#23450'[&O]'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 318
    Top = 232
    Width = 75
    Height = 25
    Caption = #36864#20986'[&X]'
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object cbb_Kc: TDBComboBoxEh
    Left = 101
    Top = 13
    Width = 145
    Height = 20
    EditButtons = <>
    TabOrder = 3
    Visible = True
    OnChange = cbb_KcChange
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    CommandText = 
      'select xs.'#23398#21495',xs.'#22995#21517' from '#32771#29983#20449#24687#34920' xs where xs.'#23398#21495' not in (select '#23398#21495' f' +
      'rom '#32771#29983#32771#35797#34920') order by '#23398#21495
    Params = <>
    ProviderName = 'Srv_DataSetProvider'
    RemoteServer = Kwgl_RDataForm.MyConnection
    AfterPost = ClientDataSet1AfterPost
    Left = 232
    Top = 152
  end
end
